home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / B invasion <CI (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  192 lines
  1. 99 pokev+21,0:printchr$(8):poke775,1:poke808,225:poke788,52
  2. 100 gosub236:
  3. 101 print"[147]":poke53280,0:poke53281,0:
  4. 102 print" ..spiel wird geladen.."
  5. 103 fori=8576to8655:reada:pokei,a:next
  6. 104 fori=8192to8199:reada:pokei,a:next
  7. 105 fori=8512to8527:reada:pokei,a:next
  8. 106 fori=8472to8479:reada:pokei,a:next
  9. 107 rem      neue zahlen
  10. 108 rem      neue zahlen
  11. 109 data 54,65,65,0,65,65,54,0,8,8,8,0,8,8,8,0,54,1,1,54,64,64,54,0,54,1,1,6,1
  12. 111 data 1,54,0,66,66,66,60,2,2,2,0
  13. 112 data 54,64,64,54,1,1,54,0,54,64,64,54,65,65,54,0,54,1,1,0,1,1,1,0,54,65,65
  14. 113 data 54,65,65,54,0,54,65,65,54,1,1,54,0
  15. 114 rem    gegner
  16. 115 data65,99,54,93,28,28,8,8
  17. 116 rem    eigenes
  18. 117 data 0,128,128,193,209,209,251,239,0,1,1,131,139,139,223,247
  19. 118 rem    explosion
  20. 119 data 129,165,165,90,90,90,60,24
  21. 120 rem >>>> spiel <<<<<
  22. 121 print"[147]":poke53280,0:poke53281,0
  23. 122 rem minieditor
  24. 123 poke53280,0 :poke53281,0:print"[147]":poke214,0:sys58640:poke646,1
  25. 124 print"                                  ";
  26. 125 print"                                  ";
  27. 126 print"                                  ";
  28. 127 print"                                  ";
  29. 128 print"                                  ";
  30. 129 print"                                  ";
  31. 130 print"                                  ";
  32. 131 print"                                  ";
  33. 132 print"                                  ";
  34. 133 print"                                  ";
  35. 134 print"                                  ";
  36. 135 print"                                  ";
  37. 136 print"                                  ";
  38. 137 print"                                  ";
  39. 138 print"                                  ";
  40. 139 print"                                  ";
  41. 140 print"[158]                                  ";
  42. 141 print"                                  ";
  43. 142 print"                                  ";
  44. 143 print"    [213][195][201]                [176][195][195][195][174]      ";
  45. 144 print" [174][206][205]      [194][215][194]       [176][195][195][174]    ";
  46. 145 print" [194][176][195][174][194]       [194][206][205]  [176][195][195][174][202][195][203][176][195][195][195][174]  [194] ";
  47. 146 print" [194]     [194][173][195][189][173][195][195][195][174]   [173][170][181][195][195][179][176][174][171][195][194][195][179]  ";:x2=20
  48. 147 print" [171][195][195][179]  [171][195][195][195][195][195][179].[176][174].[176][174].[194]   .[170][181]..[194][173][189][194]";
  49. 148 print".[194].[194]   [194]..[194]  [194].....[194].[173][189].[173][189].[194]  ";:poke646,1:print"----";
  50. 149 print"----------------------------------";
  51. 150 print"-  [209]punkte:    [209]kredite:   [209]highsc";
  52. 151 print"ore:    ---------------------------------------";
  53. 152 ifv=1thenv=0:goto160
  54. 153 ifv=0then pu=-1:kr=3:hi=20:x1=20:x2=20:y1=22:y2=1:
  55. 154 rem
  56. 155 poke211,9:poke214,10:sys58640:print" gleich geht es los!":poke198,0:
  57. 156 wait198,1:fori=5to0step-1:fort=1to100:nextt:x1=20
  58. 157 poke 211,16:poke214,12:sys58640:print">[156]"i"<":gosub217:nexti
  59. 158 forx=10to12 step2
  60. 159 poke781,x:poke782,39:sys59905:nextx
  61. 160 goto 190
  62. 161 goto 180
  63. 162 p=peek(56320):fort=1to100:nextt
  64. 163 ifp=119then175
  65. 164 ifp=123then177
  66. 165 if y2=14then184
  67. 166 ify2=15then196
  68. 167 ify2=16then196
  69. 168 y2=y2+1
  70. 169 i=int(2*rnd(1))+1
  71. 170 ifi=1thenx2=x2+1:goto 172
  72. 171 x2=x2-1
  73. 172 ifx2>37 or x2<1 then169
  74. 173 poke781,y2-1:poke782,x2+2:sys59905
  75. 174 poke211,x2:poke214,y2:sys58640:print"[153]@":goto162
  76. 175 if x1=37then 165
  77. 176 x1=x1+1:goto 179
  78. 177 ifx1=1then165
  79. 178 x1=x1-1:goto179
  80. 179 poke781,15:poke782,39:sys59905
  81. 180 poke211,x1:poke214,15:sys58640:print"[154]()":goto165
  82. 181 :
  83. 182 if peek(1024+x2+y2*40)<>32then186
  84. 183 goto 168
  85. 184 y3=y2+1:ifpeek(1024+x2+y3*40)<>32then 186
  86. 185 goto 168
  87. 186 poke211,x2:poke214,y2:sys58640:print"#":gosub225 :goto187
  88. 187 fori=0to1:fort=0to7:poke53270,t:nextt:nexti:poke53270,200
  89. 188 fori=16to0step-1
  90. 189 poke(55296+x2+y2*40),i:nexti
  91. 190 y2=1
  92. 191 pu=pu+1:poke211,9:poke214,22:sys58640:print""pu
  93. 192 ifpu>hithenhi=pu
  94. 193 poke211,21:poke214,22:sys58640:print""kr
  95. 194 poke211,36:poke214,22:sys58640:print""hi:goto161
  96. 195 fori=0to11:fort=0to7:poke53270,t:nextt:nexti:poke53270,200
  97. 196 if kr=0then 205
  98. 197 rem hierher zurueck
  99. 198 y2=y2+1
  100. 199 poke(1024+x2+y2*40),102:y3=y2+1:ifpeek(1024+x2+y3*40)=32 then 204
  101. 200 gosub225
  102. 201 fori=0to5:fort=0to7:poke53270,t:nextt:nexti:poke53270,200
  103. 202 fori=2to0step-1:poke211,x2-1:poke214,y2-i:sys58640:print"[166][166][166]":nexti
  104. 203 fort=1to600:kr=kr-1:v=1:y2=1:goto122
  105. 204 poke(1024+x2+y2*40),32:goto197
  106. 205 poke53280,1:poke53281,0
  107. 206 rem hierher zurueck
  108. 207 y2=y2+1
  109. 208 poke(1024+x2+y2*40),35:y3=y2+1:ifpeek(1024+x2+y3*40)=32 then 212
  110. 209 gosub225
  111. 210 fori=2to0step-1:poke211,x2-1:poke214,y2-i:sys58640:print"[166][166][166]":nexti:
  112. 211 r=0:goto213
  113. 212 poke(1024+x2+y2*40),32:goto206
  114. 213 fori=1to3
  115. 214 poke53281,r:poke53280,r:fort=1to10:nextt:r=r+1:ifr=15then216
  116. 215 goto214
  117. 216 r=0:nexti:poke53280,0:gosub225:goto235
  118. 217 rem schuesse
  119. 218 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24:
  120. 219 forx=15to0step-1
  121. 220 pokel,x:pokea,15:pokeh,0:pokefh,40:pokefl,200:pokew,53
  122. 221 fort=1to10:nextt
  123. 222 nextx
  124. 223 pokew,0:pokea,0
  125. 224 return
  126. 225 :
  127. 226 :
  128. 227 s=54272
  129. 228 poke s+24,15
  130. 229 poke s+5,25
  131. 230 poke s+1,20
  132. 231 poke s+4,128
  133. 232 poke s+4,129
  134. 233 return
  135. 234 :
  136. 235 :y2=1:v=2:pu=0:kr=3:goto 122
  137. 236 poke53272,24
  138. 237 poke53280,0:poke53281,0:print"[147]":poke53271,21:poke214,0:sys58640
  139. 238 print"   ..bitte haben sie etwas geduld.."
  140. 239 poke56334,peek(56334)and 254:poke1,peek(1)and251
  141. 240 fort=0to2047:poke8192+t,peek(53248+t):nextt
  142. 241 poke1,peek(1)or4:poke56334,peek(56334)or1:poke53272,24
  143. 242 fori=8664to8671:pokei,255:nexti:print""
  144. 243 print"                                  ";
  145. 244 print"                                 ";
  146. 245 print"               ;;; ;  ; ;   ; ;;;";
  147. 246 print" ;;; ;;; ;;; ;  ;      ;  ;; ; ;   ";
  148. 247 print"; ; ; ;    ;  ; ; ;; ;      ;  ; ;";
  149. 248 print";  ; ;  ;;; ;;;  ;  ; ; ; ;;      ";
  150. 249 print";  ;  ;  ; ;  ; ;   ;  ;  ; ; ;  ;";
  151. 250 print"     ;;; ;  ;   ;   ; ; ;;; ;;; ;;";
  152. 251 print"; ;  ;                            ";
  153. 252 print"                 ^ ^ ^ ^ ^ ^ ^ ^ ^";
  154. 253 print" ^ ^ ^ ^ ^ ^ ^ ^ ^      ^ ^ ^ ^ ^ ";
  155. 254 print"^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^           ";
  156. 255 print"                                  ";
  157. 256 print"                                  ";
  158. 257 print"                                  ";
  159. 258 print"[129]                   ..von marcus hi";
  160. 259 print"nzmann..                          ";
  161. 260 print"                                 .";
  162. 261 print". im jahre 1998 ..                ";
  163. 262 print"                                  ";
  164. 263 print"[152]                            ";
  165. 264 print"                                  ";
  166. 265 print"                                  ";:poke646,14
  167. 266 print"                             (drue";
  168. 267 print"cke feuerknopf in port 2.)        ";
  169. 268 print"                                  ";
  170. 269 print"                                  ";
  171. 270 print"                                  ";:gosub278
  172. 271 p=peek(56320):ifp=111thenreturn
  173. 272 gosub274:goto271
  174. 273 poke45,peek(174):poke46,peek(175):clr:load"fertig",8
  175. 274 fori=1to7step2:poke53270,i:next:gosub279
  176. 275 fori=6to0step-1:poke53270,i:next:gosub279
  177. 276 poke53270,200:pokesi+24,0:return
  178. 277 nextt:return
  179. 278 fork=0to24:poke54272+k,0:next:return
  180. 279 rem ** sound subroutine **
  181. 280 s=54272
  182. 281 poke s+24,15
  183. 282 poke s+6,240
  184. 283 poke s+4,101
  185. 284 for x= 1 to 250  step 125
  186. 285 poke s+1,x
  187. 286 next x
  188. 287 poke s+4,32
  189. 288 return
  190. 12000 end
  191. 12001 poke631,19:poke632,13:poke633,13:poke198,3
  192.